50 PRINT CHR$(147)
100 REM RAHMEN ZEICHNEN
105 ZC=42
110 :
120 REM OBERER TEIL
121 FOR SP=0 TO 39
130 POKE 1024+SP,ZC
140 POKE 55296+SP,RND(O)*160
150 NEXT SP
160 :
220 FOR ZE=0 TO 24
230 POKE 1024+40*ZE+39,ZC
240 POKE 55296+40*ZE+39,RND(0)*16
250 NEXT ZE
320 FOR SP=39 TO 0 STEP -1
330 POKE 1984 +SP,ZC
340 POKE 56256+SP,RND(0)*16
350 NEXT SP
420 FOR ZE=24 TO 0 STEP -1
430 POKE 1024+40*ZE,ZC
440 POKE 55296+40*ZE,RND(0)*16
450 NEXT ZE